home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / library / p61lib.lha / P61Lib / Src / p61test.e < prev    next >
Text File  |  1995-08-25  |  377b  |  17 lines
  1.  
  2. MODULE 'player61','tools/file','exec/memory','tools/trapguru','tools/exceptions'
  3.  
  4. RAISE "P61L" IF OpenLibrary()=0
  5.  
  6. PROC main() HANDLE
  7.     DEF file
  8.     player61base:=OpenLibrary('player61.library',37)
  9.     file:=readfile(arg,0,MEMF_CHIP)
  10.     IF Pl61_Play(file,NIL,NIL)<>0 THEN Raise("P61")
  11.     WHILE CtrlC()=0 DO WaitTOF()
  12.     Pl61_Stop()
  13. EXCEPT
  14.     report_exception()
  15. ENDPROC
  16.  
  17.